home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 April
/
64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64
/
f-c (comp).seq
< prev
next >
Wrap
Text File
|
2022-10-26
|
1KB
|
51 lines
;speeder floppy->computer (comp.routine)
ldx #$0b
stx $dd00
ldx #$03
l1 lda $dd00
bpl l1
stx $dd00
l2 nop
nop
lda #$0b
sta $dd00
nop
nop
ldx #$03
stx $dd00
ldx $dd00 ;bits 5 und 7
lda tab57,x ;holen
ldx $dd00 ;
ora tab13,x ;bits 1 und 3
ldx $dd00 ;
ora tab02,x ;bits 0 und 2
sta puffer,y ;und schreiben
iny ;naechstes byte
bne l2
rts
.byte $00,$00,$00,$05,$00,$00,$00,$00
.byte $00,$00,$00,$0a,$00,$00,$00,$00
.byte $00,$00,$00,$50,$00,$00,$00,$00
.byte $00,$00,$00,$a0,$00,$00,$00,$00
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.byte $00,$00,$00,$01,$00,$00,$00,$00
.byte $00,$00,$00,$02,$00,$00,$00,$00
.byte $00,$00,$00,$10,$00,$00,$00,$00
.byte $00,$00,$00,$20,$00,$00,$00,$00
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.byte $00,$00,$00,$04,$00,$00,$00,$00
.byte $00,$00,$00,$08,$00,$00,$00,$00
.byte $00,$00,$00,$40,$00,$00,$00,$00
.byte $00,$00,$00,$80,$00,$00,$00,$00
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00